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1. PET INSTRUCTION BOOK SET 

All PETs are currently being shipped with the revised 
instruction book, plus a booklet titled "Pet Communications 
With The Outside World" (this information was issued with 
Transactor Bulletins 3 and 4-), plus the booklet containing 
a description of the programs "Bigtime" , "Squiggle" , and 
"Machine Langugage Monitor" plus either the tape, or a print- 
out of the programmes if the tapes are not available. Also ^ 
available on request is a revised issue of the "Compendium 
of Notes." Enclosed is copy of all of the above - except "Pet 
Communications With The Outside World" which was issued in 
the last two bulletins, and "Bigtime /Squiggle" which were 
issued in Transactor Bulletin #2. 

2. PERIPHERALS 

C2N Second Cassette - available ex-stock ilOO USA, $120 CDA. 

Printer - Although many delivery dates have been quoted, the 

Commodore Printer is unlikely to be available before 
January, 1978. S695 USA, $995 CDA. 

Floppy Disk - Still on target for the end of the year. 

Specification will certainly be worth waiting 
for. Si, 000 USA approximately, Si, 500 CDA. 
approximately. Dual drive. 

Expansion Memory - End of the year. No price yet. 

Modem - No price or delivery date yet. 

Although only C2N cassette is available, yet various printers 
with parrallel andmserial interfaces giving ASCII characters 
will work with PET"^ using adaption leads e.g. Serial from 
Connecticut Micro Computer, Parrallel from Computer Factory 
(see this bulletin). Also IEEE Floppy from H.P. or 
Tectronix, and Expansion Memory from Convenience Living 
Systems (see Bulletin 4). For modem, see Bulletin 2. 



5. SQFTWABE 

The only progranunes available now are listed in this Bulletin. 

^. Part 12 of the contents of Bulletin #4 was not available 
on August 31st, however this is listed below: - 



12. Default Parameters 



Table 12-1. Default values. 



Parameter 


Default Value 


Default Operation 


Device # 


0=1 


Cassette #1 selected 


Secondary 
address 


SA=0 


On tape files open for read 
On IEEE-488 devices, no 
secondary address is sent. 



Table 12-2. Example of default parameters. 



Statement 


Equivalent 

(Default) 

Parameter Values 


Operation 


0PEN#1 


OPEN 1,1,0 


Open logical file #1 for cassette #1 read 
no file name 


0PEN#1,2 


OPEN#1,2,0 


Open logical file #1 for cassette #2 read 
no file name 


0PEN#1,2,1 


0PEN#1,2,1 


Open logical file #1 for cassette #2 write 
no file name 


0PEN#1,2,1, 
"DAT" 


0PEN#1,2,1, 
"DAT" 


Open logical file #1 for cassette #2 write 
file named "DAT" 



5. Pages 9-35 are extract from the PET Users Club letter 
in Britain. 
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1) 


R0M112.MICI1 








799 


C589 


8DFD01 


«=A 


STA 


OlFD 


800 


C58C 


68 


( 


PLA 




801 


C58Ii 


8DFE01 


t1>A 


STA 


OlFE 


S02 


C590 


A2FC 


•< 


LDX 


*FC 


803 


C592 


9A 


Z 


TXS 




604 


C593 


A900 


)8 


tHA 


♦00 


805 


C595 


85811 


EH 


STA 


8Ei 


606 


C597 


8561 


E! 


STA 


61 


r- .", — 


C599 


60 




RTS 




i:\>& 


C59A 


18 


X 


CLC 




**«**«******«»» 








*- J 


R0M192.HICI1 








799 


C589 


A8 


C 


TAY 




eoo 


CSBA 


68 


< 


PLA 




601 


C58B 


A2FE 


• > 


LDX 


*FE 


eo2 


C53ri 


9A 


Z 


TXS 




eo3 


C58E 


48 


h 


PHA 




804 


C58F 


98 


X 


TYA 




805 


C590 


48 


h 


PHA 




E06 


C59i 


A900 


)e 


LIlA 


♦00 


807 


C593 


8S8D 


EM 


STA 


an 


eo8 


C595 


8561 


E! 


STA 


61 


SC<9 


C597 


60 




RTS 




r *: r^ 


C598 


5160 


« 


EOR 


(60)»y 


C A *- 


C59A 


18 


X 


CLC 
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DIFFEEENGES FOUITO BETWEEN ROM Oil AND ROM 019 
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EE¥ PRODUCTS FOR THE COmODOEE PET 2001 

"Getting Started With Tour PET" is a new workbook now available 
to PET users who are anxious to put their PET to work. 

This beginner' s workbook supplements the documentation provided 
by Commodore. It covers the fundamentals of PET BASIC and explains 
its characteristics, limitations, and useful features. The 
descriptive text is heavily laced with step-by-step, detailed 
exercises including the expected PET responses. 

If you are already an expiert on your PET, "Getting Started 
With Tour PET" is an excellent guide for other members of your 
family who want to use the PET. 

In addition to this beginning text, workbooks on advanced 
topics are available. Some of the advanced techniques covered in 
these workbooks include string handling, arrays and loopings, 
graphics, cursor control, PEEK and POKE memory, programmed cassette 
I/O, real time clock, linkage to assembly language subroutines, 
subroutine nesting. 

TIS also provides software applications for the PET. These 
programs are available as source listings and cassettes with operating 
instructions, theoiy of operations description, and performance time 
and space limitations. 

Por more information contact Total Information Services, 
P.O. Box 921, Los Alamos, NM 875^. 

1.6 MEGABTTE FLOPPT DISK STSTEM 

Datatronics has an 800K byte and 1.6M byte S-100 floppy disk 
storage system. Based on the PerSci Model 277 drive with voice 
coil head positioning, this system offers more storage in a standard 
size drive than most other currently available drives. 

The BOOK byte model is a single density drive system, while 
the others employ dual-density recording techniques. The S-100 
controller is processor independent, and can be used with most 
8080, 8085, Z-80 and 6502 based systems as well as with the Datatronics 
6800 CPU (S-lOO based). Several formats are allowed, including IBM 3740. 

Software included with the systems is written for the 6800, but 
8080 (8085 and Z-80) versions will be available soon. Termed SDOS, 
this Disk Operating System offers full dynamic file allocation and 
file maintenance. That means that data or program files may expand 
or shrink as needed with all necessary housekeeping being totally 
transparent to the user. 
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SWTPC (SS-50) and Digital Group Bus-Compatible systems are now 
available. Several 6800 based Business languages and complete 
6800 Business packages are also available. 

Complete systems start at $1999 (includes drive, case with .fan 
and power supply, controller, cable and SDOS on disk). Availability 
is stock to 4- weeks. For more information, contact Datatronics, 
208 W. Olive, Lamar, CO 81052 (503) 556-7956. 

6502 ASSEMBLER FOR PET 2001 

The 6502 Assembler in BASIC is designed to run on an 8E 
Commodore PET. It accepts all standard 6502 instruction mnemonics, 
pseudoops and addressing modes, and evaluates binary, octal, hex, 
decimal, and character constants, symbols and expressions. Source 
statements can be read from cassette or from DATA lists and machine 
code can be assembled anywhere in memoiy or directed to an external 
device through a user-supplied subroutine. 

The package includes a text editor in BASIC, and an execution 
monitor with a disassembler. Price with documentation is $24.95 
by cheque or Visa/MC from Personal Software, P.O. Box 136-17, 
Cambridge, MA 02138, (617)783-0694. 

MACHINE LANGUAGE MONITOR 

Below is a listing of the Machine Language Monitor in machine 
language (Hex), if listed into the PET this can be saved on cassette 
and run in the PET. 
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mCHINE LANGUAGE MONITOR 



8480 


80 


0D 


84 


0A 


80 


9E 


28 


31 


8408 


38 


33 


39 


29 


00 


00 


08 


A9 


0418 


27 


31) 


IB 


02 


A9 


04 


8D 


IC 


6418 


02 


H9 


07 


35 


7D 


A9 


6B 


85 


8428 


TC 


A 9 


43 


35 


21 


D0 


12 


A9 


8428 


42 


85 


21 


D8 


4A 


68 


85 


IE 


0438 


68 


85 


ID 


68 


35 


IC 


68 


85 


8438 


IB 


63 


69 


FF 


35 


19 


68 


69 


8448 


FF 




lA 


BA 


86 


IF 


58 


20 


8448 


F2 


04 


A6 


21 


A 9 


2A 


20 


22 


8458 


06 


H9 


52 


35 


0D 


D0 


2B 


A9 


8458 


88 


85 


CA 


35 


0D 


85 


0A 


20 


8468 


F2 


04 


A9 


2E 


20 


D2 


FF 


A6 


8463 


28 


E0 


82 


F0 


04 


E0 


03 


DO 


8476 


86 


20 


3A 


86 


20 


37 


06 


20 


on 1 o 


98 


86 


C9 


2E 


F0 


F9 


C9 


20 


8438 


F8 


F5 


A 2 


07 


DD 


02 


05 


D0 


0488 


SF 


m 


20 


85 


0E 


86 


28 


BD 


8498 


8A 


85 


48 


BD 


12 


05 


48 


60 


8498 


Cm 


10 


E9 


A9 


3F 


20 


D2 


FF 


84Ae 


4C 


57 


84 


38 


A5 


13 


E5 


11 


e4A8 




8B 


A5 


14 


E5 


12 


A8 


05 


84B8 


8B 


68 


A5 


11 


85 


19 


A5 


12 


84BS 


85 


IH 


68 


85 


21 


A0 


00 


20 


84C8 


3 A 


06 


Bl 


11 


20 


13 


06 


20 


84C8 


F7 


04 


C6 


21 


D8 


Fl 


60 


29 


8408 


5E 


06 


90 


0D 


A2 


00 


81 


11 


84 D8 


CI 


11 


F0 


05 


68 


68 


4C 


9B 


04E8 


84 


28 


F7 


04 


C6 


21 


60 


A9 


84ES 


IB 


85 


11 


A9 


00 


85 


12 


A9 


e4Fe 


05 


60 


A9 


0D 


4C 


D2 


FF 


E6 


84F8 


11 


D0 


06 


E6 


12 


D0 


02 


E6 


8588 


0A 


60 


3A 


3B 


52 


4D 


47 


58 


6588 


4C 


53 


05 


85 


05 


05 


05 


05 


8518 


06 


86 


CI 


Bl 


2C 


5E 


D7 


FD 


8518 


9E 


9E 


20 


50 


43 


20 


20 


53 


8528 


52 


20 


41 


43 


20 


58 


52 


20 


8528 


59 


52 


20 


53 


50 


A5 


0D 


D0 


8538 


86 


20 


F2 


04 


20 


37 


06 


20 


8533 


37 


06 


A2 


00 


BD 


lA 


05 


20 


8548 


1)2 


FF 


E8 


E0 


13 


D0 


F5 


20 


8543 


F2 


04 


A2 


2E 


m 


3B 


20 


22 


8558 


06 


20 


37 


06 


20 


08 


06 


20 


8558 


E7 


04 


28 


BB 


04 


F0 


4D 


20 


8568 


90 


06 


20 


4F 


06 


90 


48 


20 


8563 


3F 


06 


20 


90 


06 


20 


4F 


06 


8578 


90 


3D 


20 


3F 


06 


A0 


08 


B9 


8578 


4A 


07 


30 


86 


20 


D2 


FF 


C8 


85S0 


D0 


F5 


29 


7F 


20 


D2 


FF 


20 


8588 


2A 


F3 


F0 


28 


A6 


0A 


D0 


IC 


8598 


20 


A3 


04 


90 


17 


20 


F2 


04 


8598 


ft2 


2E 


A9 


3A 


20 


22 


86 


20 


85rl8 


37 


06 


20 


04 


06 


A9 


08 


28 
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eSAS BB 84 F8 DB 4C 57 04 4C 
85Be 9B 04 20 5E 86 20 4F 06 
05B8 90 03 20 B2 84 20 E7 04 
05C0 D0 0A 20 5E 06 20 4F 86 
05CS 90 E5 A9 08 85 21 28 98 
05D0 0b 20 CF 84 D8 F8 F8 D4 
05D8 £8 CF FF C9 SD F8 8C C9 
85E0 20 D0 CC 28 4F 86 98 83 
05E8 20 B2 04 A6 IF 9A A5 lA 
85F0 48 A5 19 48 A5 IB 48 A5 
05F8 IC A6 ID A4 IE 48 A6 IF 
0600 9A 4C 8B C3 A2 81 D8 82 
0608 h2 09 B5 10 48 B5 11 20 
8610 13 06 68 48 4A 4A 4A 4A 
0618 20 2B 06 AA 68 29 0F 20 
0628 2B 86 48 3A 28 D2 FF 63 
8628 4C D2 FF 18 69 06 69 F0 
0630 90 02 69 06 69 3A 60 20 
0638 3A 06 A9 28 4C D2 FF A2 
0640 02 B5 18 48 B5 12 95 18 
0648 68 95 12 CA D0 F3 60 20 
0650 5E 06 90 02 85 12 28 5E 
0658 06 90 02 85 11 60 A9 80 
0660 85 8F 28 98 86 C9 20 D0 
0663 89 28 90 86 C9 20 D0 0E 
0670 18 60 20 85 06 0A 0A 0A 
0678 0A 35 0F 20 90 06 20 35 
0680 06 05 0F 38 60 C9 3A 08 
8638 29 0F 28 98 82 69 88 60 
8690 28 CF FF C9 SD DS F8 68 
8698 68 4C 57 84 4C 9B 04 20 
06A0 90 06 A9 00 85 EE 85 FA 
06H8 A9 23 85 F9 20 5E 06 29 
86B0 0F 35 Fl 20 90 06 A2 00 
86B8 28 CF FF C9 2C F8 55 09 
86C0 0D F0 0B E0 10 F0 Fl 95 
86C8 23 E6 EE E8 D0 EA A5 20 
06D0 C9 06 D0 C8 A2 00 8E 0B 
06D8 02 A5 Fl D8 83 4C 9B 04 
06E0 C9 83 B0 F9 28 67 F6 20 
06E8 3B F8 20 FF F3 A5 EE F0 
86F0 08 20 95 F4 D0 08 40 9B 
86F8 04 20 AE F5 F0 F8 20 4D 
0788 F6 28 22 F4 28 8A F8 20 
0708 13 F9 AD 80 02 29 10 D8 
0710 E5 40 57 04 28 4F 86 A5 
0718 11 85 F7 A5 12 85 F8 20 
8720 OF FF 09 20 F0 F9 09 0D 
0728 F0 A4 09 20 F0 03 40 90 
0730 06 20 4F 06 A5 11 85 E5 
0738 A5 12 85 E6 A5 20 09 86 
0740 F0 92 A2 88 28 Bl F6 40 
0743 57 04 0D 20 28 28 28 20 



mCHINE LANGUAGE MONITOR (Continued) 
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58 ' 

100 
200 
300 
400 
500 

600 
650 
700 

800 

1000 

1100 

1200 
1300 
1350 

1400 

1420 
1425 
1430 
1440 
1470 
1475 



1500 
1538 
1550 
1600 
READV. 



;lr:PR 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR I 

FOR I 

PRINT 

FOR 

T=TI 

NEXT 

PR IN 

PRIN 

PRIN 

FOR 

FOR 

PRIN 

FOR 

NEXT 

60T0 

T1=T 

FOR 

PRIN 

PRIN 



INT"L"; -POKE 245,6; PR I NT 

"THIS PROGRAM TESTS VOUR REFLEXES BV" 
"MEASURING VOUR REACTION TIME. WHENEVER" 
"THE SCREEN IS CLEARED HIT ANV CHARACTER-" 
"VOUR REACTION TIME IN SECONDS HILL BE" 
"DISPLAVED— WHEN THIS DISSAPPEARS HIT" 
"ANOTHER KEV <ANV KEV WILL DO) AND SO ON-" 
= 1 TO 7500: NEXT. PR INT TAB (15) "IfllGET READV" 
= 1 TO 2500 : NEXT. PR INT"L-." : POKE 245,11 
:PRINT TAB<ll)"<iaHIT ANV KEV NOWB) " :GETA$, A$ , 
1 = 1 TO RND<1>*2000+750:GET C* :NEXT : PRINT"l4" ; 
••FOR 1 = 1 TO 500 -.GET C* . IF C*0"" THEN 1580 
■.PRINT"f4" :POKE 245, 10. PR INT 

T"ia VOU SHOULD HAVE TVPED A CHARECTER WHEN " 
T"ia 

T"ia 
1=1 
1=1 
T"ia 

1 = 1 TO 1000:GETC$:IF CK>"" THEN 1500 
■•GOTO 50 
50 

I-T:PRINT"L-."; :POKE 245,11 
1 = 1 TO 2500:GETC$: IF CIO"" THEN 1500 
T:POKE 226,17 
T INT(<Tl/60*1080>+.5)./1000:GOTO1000 



AI,A$,A$,A*,A$:GOTO 1180 



THE SCREEN WAS CLEARED 
TO 1008 -.NEXT 
TO 40:PRINT"ia "; :NEXT 
(STAND BV FOR MORE 



INSTRUCTIONS) 
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The following programs on cassette are now available from Commodore and shortly 
its dealers. Each program uses 8K of RAM unless otherwise specified. 

DIET PLANNER AND BIORHYTHM 

Diet Planner (by Les Palanik) determines your ideal weight and computes the 
number of calories needed each day to maintain that weight or reduce to that 
weight. Biorhythm displays a chart of the intellectual, emotional and 
physical biorhythmlc cycles. 

Part 321002 $14.95 USA 

S15.95 CDA 
TARGET PONG AND OFF THE WALL 

Target Pong. Insert paddles in the path of a fast moving ball to deflect the 
ball into a target. The secret is to use the fewest number of paddles and the 
least time to hit the target just once. Off The Wall is exactly the opposite. 
Here the secret is to use as many paddles as you can without hitting the 
targets. And just to make the ganffi more difficult, there are many targets in 
this game. 

Part 321003 $9.95 USA 

$10.95 CDA 
BASIC BASIC 

Basic Basic (by Ralph James and Ron Lodewyck) is a tutorial program introducing 
you to the BASIC language. Thoroughly interactive; your PET will teach you how 
to operate your PET.' Basic Basic is written by two very experienced college 
professors. The topics covered include line numbers, variables, strings, arrays, 
and the use of the various commands such as LIST, RUN, and SAVE. Also basic 
keywords will be explained and used such as PRINT, READ/DATA, INPUT, IF/THEN, 
GOTO, and FOR/NEXT. Fifteen chapters, six sample programs. .. and homework 
assignments. Uses just 4K of RAM memory. 

Part 321005 $14.95 USA 

S15.95 CDA 
GALAKY GAMES 

Galaxy Games (by Peter Ruetz). Maneuver your space ship while firing at the 
enemy, and at the same time avoid hitting a star. In one game, you're firing 
at fixed targets. In the other game, you're firing at a spaceship that's being 
piloted by an obviously drunk astronaut.' 

Part 321006 $ 9.95 USA 

110.95 CDA 
MORTGAGE 

Mortgage computes the payment amount, given the principal, interest rate and 
term of the loan. For any payment period it computes the amount that is 
principal and the amount that is interest (amortization schedule) and gives 
the interest, principal, and total amount paid to date. 

Part 321007 .$14.95 USA 

S15.95 CDA 
SPACE FIGHT 

Space Fight (by Leonard K. Sweatman). Fire missiles a^t each other in this two 
player game. 

Part 321010 $ 9.95 USA 

SlO.95 ©DA 
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COMPUTER FACTORY, INC. 485 LEXINGTON AVE. (BET. 46 & 47} NEW YORK. NY 10017 

488 PARALLEL 
IEEE 488 TO PARALLEL OUTPUT PORT 

The 488/Parallel provides a flexible unidirectional interface from an IEEE 488 bus to any device with a 
TTL compatible, 8 bit parallel port with handshake. It is contained on a single printed circuit board designed 
to plug directly into the interface slot of any Centronics printer except Model 779. It is optionally available 
mounted in an attractive cabinet for use with the Centronics 779 or with other manufacturers' (e.g. Data 
Products, Integral Data, etc.) equipment. 

Users of the Commodore Pet, Hewlett Packard computers, or intelligent instruments will find in this 
product an economical and effective method for connecting to their systems any of the many peripherals 
which have a parallel interface. Expensive optional adapters can be avoided while the handshake protocall 
allows data transfer to occur at the peripheral's maximum rate. 

Convenient, on board dip switches tailor the signal polarities, device address (full 5 bit), and pulse durations 
to those required by your application. The IEEE capabilities supported are acceptor handshake, listener, and 
interface clear. 

The unit comes fully documented and with a 90 day guarantee. 

PRICE LIST 

488/Parrallel Pet — Pet to Centronics printer interface complete, assembled and tested with neces- 

sary cabling 

$225 

488/Parallel Pet — Interface mounted in cabinet with connectors to Pet and 1 device (specify 

CEIA or microribbon connectors) 

$255 

OPTIONS 



Power supply (not req'd when used with Centronics printers) 
IEEE/488 connector instead of Pet connector 
IEEE/488 connector in addition to Pet connector 

AVAILABLE SOON 



Bi-directional capability 



DEALER INQUIRIES INVITED 
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ATTACHIHG A VIDEO MONITOR TO PET 



U 

s 

E 
R 



P 


R 
T 



VERT. 



HORIZ . 



VIDEO 



GRND. 



I.e. = 74LS02 
1 SPARE GATE 




COMPOSITE 

VIDEO 

OUT 



This I.e. requires +5V on pin 14, Pin 7 is 
ground ( ) connect a 1 uF TANT. capacitor 
between pins 14 and 7. observing polarity 



Above is a simple circuit which takes the horizontal drive, 
vertical drive and video wavefoms from the PET User Port and 
converts them to composite video suitable for driving an RF 
modulator or a straightforward monitor. The circuit requires 
a 5 volt power supply and this may be obtained from a 2nd 
cassette socket which has a few milliamps available at 5 volts. 
There are no particular points to watch out for when constructing 
this circuit. Lay-out is not critical. In the unlikely event of 
the horizontal hold of your display device misbeha-ving, adjust 
the value of the 1.5K resistor. This will alter the horizontal 
sync, pulse width. 



DELAYS 

Quite a few people have asked how to put delays into 
programs. Here are two common methods: 

10 FOR A = 1 to 1000 : NEXT this will cause a delay 
of approximately 1 second 

10 FOR A = 1 to 2000 : NEXT this will cause a delay 
of approximately 2 seconds etc. 

10 T=TI 

20 IF TI - T < 60 THEN 20 
Lines 10 and 20 cause a delay of approximately one second 
and work as follows: 

Line 10 sets the variable T equal to the real time jiffy 
clock TI (a jiffy is 1/60 of a second) 

Line 20 tests to see whether 60/60 of a second have elapsed, 
if not the program returns to the beginning of line 20 and 
checks again. 

Here is a small program you might like to try which uses 
delays involving the real time clock in an interesting manner, 

READY. 

5 PftINT"KEY IN A NUdBER'"; 

II T=f:AI="" 

2f 6ETKt:IFKI=""IHEN2f 

II T=TI:60T06i 

4i 6ETKI 

§f IFTI-l>6«THEM7i 

i§ IFKI<>""THENPRlNT|{*;:AI=A*+KI:T=TI:G0T04i 

45 G0T04i 

71 IFA=iTHENPRINT"+";!A=VftL(A*);60T01i 
81 PRINT"«"AtyAL(AI) 
READY. 



PLOTTING 

It is possible, with very little effort, to address locations 
on the screen using simple XY co-ordinates. Below we have 
a program that uses a simple formula that enables one to do 
this. 



READY. 

5 DATA12,15,22,5,I2,25,33 
10 PRINT"" 
20 PI=3. 14159265 
30 FORA=0TO4*PI STEP(4*PI )/3? 
40 Y=INT(SIN(A)*12+12):X=X+1 
50 GOSUB80 
60 NEXT 

70 F0RA=33568T033574:REAriZ:P0KEA,Z:NEXT 
75 G0T075 

80 POKE( (24-Y)*40 + 3276e)+X,46:RETlJRN 
READY. 



The line that does the actual XY co-ordinate conversion is 
line 80. For the sake of clarity line 80 has been made a sub- 
routine but the formula is so compact that in some cases, 
including this one, it is not necessary. Line 5 and 70 should 
be included when you test this program out but may be omitted 
subsequently. X has a range of 0-39 and Y has a range of 
0-24. 
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INPUTTING 

It is worth pointing out that coimnas emd colons act as 
delimiters in input strings, eg. 

10 INPUT A $ :•? A $ If this program is run and 
you type HOWEVER, I THINK the machine will accept HOWEVER 
and print the error message EXTRA IGNOKED, The same will 
happen if you use the s in similar circumstances. If you 
wish to include either of these characters in an input 
statement enclose your typed INPUT in quotes. Many people 
must have been annoyed by the way BASIC will abort if the 
return key is pressed when the machine is waiting on an 
INPUT statement and no data has been typed in. 
It is possible to arrange an input statement so that it 
will never do this. The method is as follows: 

(note I -^ means CURSOR RIGHT and 4- means CURSOR LEFT) 

10 INPUT "^-^ *«•<•«- "jA 
When this input statement is encountered the user must type 
a number in reply, anything other than a number, including 
no entry at all, will cause the machine to return to the 
input statement with the appropriate message. Symbols other 
than * can be used where required. 
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DATA FILE ERRORS 

There is a bug in the file handling routine which causes 
data to be written on the tape prematurely, not allowing 
for cassette motor start up time. 

This is temporarily curable by keeping the motor running 
whilst the tape buffer is being filled, or by starting 
the motor when the buffer is almost filled. 

The method of turning on the motor is to change a bit in the 
appropriate PIA register. The location of the PIA register 
is 59411 and the correct byte to place in that register is 53. 
Therefore the syntax for turning on the cassette motor is 
P«KE 59411,53. This should be done either every time PRINT 7^ 
is used or just before the buffer is full. Using the latter 
method involves PEEKING location 62 5 which is the buffer 
pointer. When this pointer approaches 191 which is the size 
of the buffer, turn on the motor. The relevant locations of 
bytes for the second cassette port are 59456 and 223 for STOP 
and 207 for STAKT. 
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DATA FILE ERRORS (cent.) 



A problem with opening files to write on either built-in cassette #1, or 
external cassette #2, has been discovered. VWien a file is opened, garbage 
will be written out instead of a p-oper data tape file header. Without this 
header, it is impossible to open the tape file for reading. 

You may not have encountered this problem previously, because it is 
disguised by having loaded a program on the cassette prior to writing a data file. 
In this mode, the start address of the buffer with the header information is 
initialized properly but cassette data file operation still could be random. 

Fortunately, there is a software patch you can implement in your BASIC 
program to force the open for write on tape to work every time. 

Before opening to write on #1 cassette: 

POKE 243,122 
POKE 244,2 

and on #2 cassette: 

POKE 243,58 
POKE 244,3 

Locations 243 and 244 contain the lo and hi order bytes respectively of 
the address of tJie currently active cassette buffer. The start address of buffer 
#2 is $33A which is 3,58 ($3=3, $3 A=58) in double byte decimal. Similarly 
cassette #1 is $2 7A ($2=2, $7A=I22). 



TAPE EEM> CARE 

It has been noted that the READ/WKETE head in the PIT 
cassette deck has the annoying habit of magnetising itself 
after a remarkably short period of operation. It is in fact 
possible to partially erase your tapes by up to 15% after only 
15 or 20 passes over the head. The most convenient way to 
deal with this problem is to demagnestise the tape head very 
frequently, ie every couple of days with a demagnetising 
cassette. AMPEX market quite a good one for about £3.~ 



USEFUL ADDRESSES 



On the following page you will find an extensive map of 
the PET memory. This list is "home" generated and not 
from CBM U.S. so may contain slight inaccuracies, but all 
the major buffers and ram areas are correct. Also here are 
some common PIA addresses and how to use them. 

User Port - data register 59424 

User Port Data Direction 59426 



n 



til 



m 



DATA REGISTER ADDRESS 
59471 



rr'^ 


t 


T 


t 


-t 


t 


T 


T 


1 





IZ^ 





1 


# 


1 


1 


ImTJi 




ra 


I 


=ODT 


0= 


IN 





DATA DIRECTION REGISTER 
59459 



i»<is «'»T mva. 



The major portion of the user port consists of 8 connections 
at the rear of the PET. Whether these connections are used 
for INPUT or OUTPUT is up to the programmer. These 8 wires 
may be used as either input or output. Before using this 
8 bit port you must first configure these wires as inptits or 
outputs. This is done by writing a byte to the data direction 
register at address 59459. In the example above bits 0, 1, 
3 and 7 are configured as outputs.. Bits 2,4,5 and 6 are 
configured as inputs. The bit that you see in the data direction 
register is generated by poke 59459, 139. In order to test a 
particular bit being used as an input in the data register 



USEFUL ADDRESSES (CONT.) 

(59471) one must peek 59471 and apply a "mask" in order to 

mask out unwanted bits. For instance to examine bit 2 we 

would use the expression PRINT PEEK (59471) AND 4. If the 

result of this expression is then bit 2 of the data 

register (59471) has been held at volts by the outside world. 
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MACHINE CODE ENVIRONMENT 

If you wish to write machine code programs in your PET and 
do not wish to have BASIC trampling all over them here is 
a suggestion: 

When the PET is first powered up a test pattern is written 
into and read back from the RAM in ascending address order. 
When this routine discovers a location which does not read 
back properly it presumes that it has run out of RAM and 
displays XXXX bytes free. At this point it makes a note of 
where it thinks the 'top of memory' is.. A quick glance at 
the memory map will show that BASIC program text is stored 
from location 1025 upwards and strings are stored from the 
top of the memory downwards which means that in any normal 
circumstances there is nowhere in the PET main memory where 
you can hide your machine code routines. 

If however, the first thing you do after powering up the PET 
is to alter the top of memory pointer to say S^^ everything 
from Sp<pl upwards, as far as PET is concerned, does not exist, 
e.g. strings will be stored from 6^0^ downwards etc. and mach- 
ine code programs can be safely put in location 60^1 upwards. 
This pointer is held in locations 134 and 135 constituting a 
16 bit pointer with 134 being its lower 8 bits. This is a 
binary pointer which means that we must convert your Sppp 
or whatever to binary before POKING locations 134 and 135 with 
the information. In the standard 8K PET 134 will be and 135 



MACHINE CODE ENVIROHMEHT (cont.) 

will be 32 (32 X 256 = 8192) Remember that 1025 bytes are 
used for house keeping by the PET (8192 - 1|ZJ25 = 7167) 
However to give the PET a ceiling of 6000 we convert 6000 
into binary which gives us POKE 134, 112 and POKE 135, 23. 
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LIFE FOR YOUR PET 

Here Is a good example of what can be done in machine code 
in the PET. It is the game of "LIFE" by John H. Conway of 
Cambridge. If one attempts to write a Conanodore PET screen 
size {l^f^ cell) version of LIFE in BASIC it can take up 
to two or three minutes per generation. This program performs 
two generations per second. In order to use it type in a 
listing in the form of data statements and load in the machine 
code with a small BASIC routine being careful to fill in 
the gaps between 1928 (HEX) and 1930 and also 1954 and 1970 
with no-ops. Below is a listing of the documentation provi- 
ded by the author. 
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LIFE FOR YOUR PET 



Since this is the first time I have 
attempted to set down a nachine lang- 
uage program for the public eye, I will 
attempt to be as complete as practical 
without overdoing it. 

The programs I will document here are 
concerned with the game of "LIFE" , and 
are written in 6502 machine language 
specifically for the PET 2001 (8K ver- 
sion). The principles apply to any 
6502 system with graphic display capa- 
bility, and can be debugged (as I did) 
on non-graphic systems such as the 
KIM-1. 

The first I heard of LIFE was in Martin 
Gardner's "Recreational Mathematics" 
section in Scientific American, Oct-Nov 
1970; Feb. 1971. As I understand it, 
the game was invented by John H. Con- 
way, an English mathematician. In 
brief, LIFE is a "cellular automation" 
scheme, where the arena is a rectang- 
ular grid (ideally of infinite size). 
Each square in the grid is either occu- 
pied or unoccupied with "seeds", the 
fate of which are governed by relative- 
ly simple rules, i.e. the "facts of 
LIFE". The rules are: 1. A seed sur- 
vives to the next generation if and on- 
ly if it has two or three neighbors 
(right, left, up, down, and the four 
diagonally adjacent cells) otherwise it 
dies of loneliness or overcrowding, 
as the case may be. 2. A seed is born 
In a vacant cell on the next genera- 
tion if it has exactly 3 neighbors. 

With these simple rules, a surprisingly 
rich game results. The original Scien- 
tific American article, and several 
subsequent articles reveal many curious 
and surprising Initial patterns and 
results. I understand that there even 
has been formed a LIFE group, complete 
with newsletter, although I have not 
personally seen it. 



The game can of course be played man- 
ually on a piece of graph paper, but it 
is slow and prone to mistakes, which 
have usually disasterous effects on the 
final results. It would seem to be the 
ideal thing to put to a microprocessor 
with bare-bones graphics, since the 
rules are so simple and there are es- 



sentially no arittaaetic operations in- 
volved, except for keeping track of ad- 
dresses and locating neighbors. 

As you know, the PET~2001 has an excel- 
lent BASIC interpreter, but as yet very 
little documentation on machine lang- 
uage operation. My first stab was to 
write a BASIC program, using the entire 
PET display as the arena (more ibout 
boundaries later), and the filled 
circle graphic display character as the 
seed. This worked Just fine, except 
for one thing - it took about 2-1/2 
minutes for the interpreter to go 
through one generation! I suppose I 
shouldn't have been surprised since the 
program has to check eight neighboring 
cells to determine the fate of a par- 
ticular cell, and do this 1000 times to 
complete the entire generation (^0x25 
characters for the PET display). 

The program following is a 6502 version 
of LIFE written for the PET. It needs 
to be POKE'd into the PET memory, 
since I have yet to see or discover a 
machine language monitor for the PET. 
I did it with a simple BASIC program 
and many DATA statements (taking up 
much more of the program memory space 
than the actual machine language pro- 
graml). A routine for assembling, and 
saving on tape machine language pro- 
grams on the PET is sorely needed. 



The program is accessed by the SYS g< 
mand, and takes advantage of the dis- 
play monitor (cursor control) for in- 
serting seeds, and clearing the arena. 
Without a serious attempt at maximizing 
for speed, the program takes about 1/2 
second to go through an entire genera- 
tion, about 300 times faster than the 
BASIC equivalent! Enough said about 
the efficiency of machine language pro- 
gramming versus BASIC interpreters? 

BASIC is great for number crunching, 
where you can quickly compose your pro- 
gram and have plenty of time to await 
the results. 

The program may be broken down into 
manageable chunks by subroutining. 
There follows a brief description of 
the salient features of each section: 
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MAIN (hex 1900) 



NXTADR (hex 19BD) 



In a fit of overcaution (since this was 
the first time I attempted to write a 
PET machine language program) you 
will notice the series of pushes at the 
beginning dnd pulls at the end. I de- 
cided to save all the internal regis- 
ters on the stack in page 1, and also 
included the CLD (clear decimal mode) 
just in case. Then follows a series of 
subroutine calls to do the LIFE genera- 
tion and display transfers. The zero 
page location, TIMES, is a counter to 
permit several loops through LIFE be- 
fore returning. As set up, TIMES is 
initialized to zero (hex location 1953) 
so that it will loop 256 times before 
Jumping back. This of course can be 
changed either initially or while in 
BASIC via the POKE command. The return 
via the JMP BASIC (i4C 8B C3) may not be 
strictly orthodox, but it seems to work 
all right. 

INIT (hex 1930) and DATA (hex 193B) 

This shorty reads in the constants 
needed, and stores them in page zero. 
SCR refers to the PET screen, TEMP is 
a temporary working area to hold the 
new generation as it is evolved, and 
RCS is essentially a copy of the PET 
screen data, which I found to be neces- 
sary to avoid "snow" on the screen dur- 
ing read/write operations directly on 
the screen locations. Up, down, etc. 
are the offsets to be added or subtrac- 
ted from an address to get all the 
neighbor addresses. The observant 
reader will note the gap in the addres- 
ses between some of the routines. 



TMPSCR (hex 1970) 

This subroutine quickly transfers the 
contents of Temp and dumps it to the 
screen, using a dot (8l dec) symool for 
a live cell (a 1 in TEMP) and a space 
(32 dec) for the absence of a live cell 
(a in TEMP). 

SCRTMP (hex 198A) 

This is the inverse of TMPSCR, quickly 
transferring (and encoding) data 
from the screen into TEMP. 

RSTORE (hex 19A6) 

This subroutine fetches the initial 
addresses (high and low) for the SCR, 
TEMP, and RCS memory spaces. 



Since we are dealing with 1000 bytes of 
data, we need a routine to increment to 
the next location, check for page cros- 
sing (adding 1 to the high address when 
it occurs), and checking for the end. 
The end is signaled by returning a 01 
in the accumulator, otherwise a 00 is 
returned via the accumulator. 



TMPRCS (hex 19E6) 

The RCS address space is a copy of the 
screen, used as mentioned before to 
avoid constant "snow" on the screen if 
the screen were being continually ac- 
cessed. This subroutine dumps data 
from TEMP, where the new generation has 
been computed, to RCS. 

GENER (hex 1A00) 

We finally arrive at a subroutine where 
LIFE is actually generated. After 
finding out the number of neighbors of 
the current RCS data byte from NBRS, 
GENER checks for births (CMPIM $03 at 
hex addr. lAOE) if tf.e cell was prev- 
iously unoccupied. If a birth does not 
occur, there is an immediate branch to 
GENADR (the data byte remains 00). If 
the cell was occupied (CMPIM 81 dec at 
hex 1A08), OCC checks for survival 
(CMPIM $03 at hex lAlA and CMPIM $02 at 
hex lAlE), branching to GENADR when 
these two conditions are met, otherwise 
the cell dies (LDAIM $00 at hex 1A22). 
The results are stored in TEMP for the 
1000 cells. 

NBRS (hex 1A2F) 

NBRS is the subroutine that really does 
most of the work and where most of the 
speed could be gained by more efficient 
programming. Its job, to find the tot- 
al number of occupied neighbors of a 
given RCS data location, is complicated 
by page crossing and edge boundaries. 
In the present version, page crossing 
is taken care of, but edge boundaries 
(left, right, top, and bottom of the 
screen) are somewhat "strange". Above 
the top line and below the bottom line 
are considered as sort of forbidden re- 
gions where there should practically 
always be no "life" (data in those re- 
gions are not defined by the program, 
but I have found that there has never 
been a case where 81 's have been pres- 
ent (all other data is considered as 
"unoccupied" characters) . The right 
and left edges are different, however. 



and lead to a special type of "geom- 
etry". A cell at either edge is not 
considered as special by NBRS, and so 
to the right of a right-edge location 
is the next sequential address. On the 
screen this is really the left edge 
location, and one line lower. The in- 
verse Is true, of course for left ad- 
dresses of left-edge locationsf Topo- 
loglcally, this is equivalent, to a 
"helix". No special effects <if this 
are seen during a simple LIFE evoiij|,ion 
since it just gives the iopression of 
disappearing off one edge while appear- 
ing on the other edge. For an object 
like the "spaceship" (see Scientific 
American articles), then, the path 
eventually would cover the whole LIFE 
arena. The fun cooes in when a config- 
uration spreads out so much that it 
spills over both edges, and interacts 
with itself. This, of course cannot 
happen in an infinite universe, so that 
some of the more complex patterns will 
not have the same fate in the present 
version of LIFE. Most of the "blink- 
ers", including the "glider gun" come 
out OK. 



language on the PET. One confession, 
however - I used the KIM-1 to debug 
most of the subroutines. Almost all of 
them did not run on the first shoti 
Without a good understanding of PET 
memory allocation particularly in page 
zero, I was bound to crash many times 
over, with no recovery other than pul- 
ling the plug. The actual BASIC pro- 
gram consisted of a POKING loop with 
many DATA statements (always save on 
tape before running!). 



This 10x25 version of LIFE can undoubt- 
edly be made more efficient , and other 
edge algorithms could be found, but 1 
chose to leave it in its original form 
as a benchmark for my first successful- 
ly executed program in writing machine 
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A Brief Introduction 
to the Game of Life 



2. A cell dies from overcrowding if it 
has four or more neighbors. ■ It dies 
from isolation if it has one or zero 
neighbors. 



One of the interesting properties of 3. A cell is born when an empty space 



the game of LIFE is that such simple 
rules can lead to such complex activ- 
ity. The simplicity comes from the 
fact that the rules a^ply to each in- 
dividual cell. The complexity comes 
from the interactions between the indi- 
vidual cells. Each individual cell is 
affected by its eight adjacent neigh- 
bors, and nothing else. 

The rules are: 



has exactly three neighbors, 

kith these few rules, many different 
types of activity can occur. Some pat- 
terns are STABLE, that is they do not 
change at all. Some are REPEATERS, 
patterns which undergo one or moro 
changes and return to the original 
pattern. A REPEATER may repeat as fast 
as every other generation, or may have 
a longer period. A GLIDER is a pattern 
which moves as it repeats. 



1. A cell survives if it has two or 
three neighbors. 

REPEATERS 






STABLE 

« • 
I 



« ff 



« * 






■ ■ 



• • 



« • » 

• ff K ' 



GLIDERS 



• • • 



1900 



LIFE ORG $1900 



1900 
1900 
1900 
1900 



BASIC • 
OFFSET • 
DOT » 
BLANK » 



$C38B RETURN TO BASIC ADDRESS 

$002A PAGE ZERO DATA AREA POINTER 

t0051 DOT SYMBOL = 8l DECIMAL 

$0020 BLANK SYMBOL = 32 DECIMAL 



1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 



1900 08 MAIN 

1901 HB 

1902 8A 

1903 ^B 
190i) 98 

1905 M8 

1906 BA 

1907 8A 

1908 118 

1909 D8 

190A 20 30 19 

1900 20 8A 19 

1910 20 E6 19 GEN 
1913 20 00 1A 
1916 20 70 19 

1919 E6 38 
191B DO F3 
191D 68 
191E AA 
191F 9A 

1920 68 



SCRL 

SCRH 

CHL 

CHH 

SCRLO 

SCHHO 

TEMPL 

TEMPH 

TEMPLO » 

TEMPHO » 

UP 

DOWN 

RIGHT 

LEFT 

UR 

UL 

LR 

LL 

N 

SCRLL 

SCRLH 

RCSLO 

RCSHO 

TMP 

TIMES 

RCSL 

RCSH 



« 



PHP 

PHA 

TXA 

PHA 

TYA 

PHA 

TSX 

TXA 

PHA 

CLD 

JSR 

JSR 

JSR 

JSR 

JSR 

INCZ 

BNE 

PLA 

TAX 

TXS 

PLA 



$0020 PAGE ZERO LOCATIONS 

$0021 

$0022 

$0023 

$0024 

$0025 

$0026 

$0027 

$0028 

$0029 

$002A 

$002B 

$002C 

$002D 

$002E 

$002F 

$0030 

$0031 

$0032 

$0033 

$003^1 

$0035 

$0036 

$0037 

$0038 

$0039 ■ 

$003A 

SAVE EVERYTHING 
ON STACK 



CLEAR DECIMAL MODE 



INIT 

SCHTMP 

TMPRCS 

GENER 

TMPSCR 

TIMES 

GEN 



REPEAT 255 TIMES 
BEFORE QUITTING 
RESTORE EVERYTHING 
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1921 A8 






TAY 




1922 68 






PLA 




1923 AA 






TAX 




1924 68 






PLA 




1925 28 






PLP 




1926 IC 


8B 


C3 


JMP 


BASIC 



RETURN TO BASIC 

1930 ORG $1930 

MOVE VALUES INTO PAGE ZERO 

1930 A2 19 INIT LDXIM $19 MOVE 25. VALUES 

1932 BD 3A 19 LOAD LDAX DATA -01 

1935 95 IF STAZX $1F STORE IN PAGE ZERO 

1937 CA DEX 

1938 DO F8 BNE LOAD 
193A 60 RTS 

193B 00 DATA = $00 SCRL 

193C 80 a $80 SCRH 

193D 00 = $00 CHL 

193E 15 = $15 CHH 

193F 00 = $00 SCRLO 

19*»0 80 = $80 SCRHO 

igiil 00 = $00 TEMPL 

19'«2 IB = $1B TEMPH 

19't3 00 = $00 TEMPLO 

1941 IB = $1B TEMPHO 

1945 D7 = $D7 UP 

1946 28 = $28 DOWN 

1947 01 = $01 RIGHT 

1948 FE = $FE LEFT 

1949 D8 = $D8 UR 
194A D6 = $D6 UL 
194B 29 = $29 LR 
194C 27 = $27 LL 
194D 00 = $00 N 
194E E8 = $E8 SCRLL 
194F 83 = $83 SCRLH 

1950 00 = $00 RCSLO 

1951 15 = $15 RCSHO 

1952 00 = $00 TMP 

1953 00 = $00 TIMES 

1970 ORG $1970 

1970 20 A6 19 TMPSCR JSR RSTORE GET INIT ADDRESSES 

1973 B1 26 TSLOAD LDAIY TEMPL FETCH BYTE FRCM TEMP 

1975 DO 06 BNE TSONE BRANCH IF NOT ZERO 

1977 A9 20 LDAIM BLANK BLANK SYMBOL 

1979 91 20 STAIY SCRL DUMP IT TO SCREEN 

197B DO 04 BNE TSNEXT 

197D A9 51 TSONE LDAIM DOT DOT SYMBOL 

197F 91 20 STAIY SCRL DUMP IT TO SCREEN 

1981 20 BD 19 TSNEXT JSR NXTADR FETCH NEXT ADDRESS 

1964 FO ED BEQ TSLOAD 
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1986 20 


A6 19 




JSR 


RSTORE 


RESTORE INIT ADDRESSES 


1989 60 






RTS 






198A 20 


A6 19 


SCRIMP 


JSR 


RSTORE 


GET INIT ADDRESSES 


198D 31 


20 


STLOAD 


LDAIY 


SCRL 


READ DATA FROM SCREEN 


198F C9 


51 




CMPIM 


DOT 


TEST FOR DOT 


1991 FO 


06 




BEQ 


STONE 


BRANCH IF DOT 


1993 A9 


00 




LDAIM 


$00 


OTHERWISE ITS A BLANK 


1995 91 


26 




STAIY 


TEMPL 


STORE IT 


1997 FO 


04 




BEQ 


STNEXT 


UNCOND. BRANCH 


1999 A9 


01 


STONE 


LDAIM 


$01 


A DOT WAS FOUND 


199B 91 


26 




STAIY 


TEMPL 


STORE IT 


199D 20 


BD 19 


STNEXT 


JSR 


NXTADR 


FETCH NEXT ADDRESS 


19A0 FO 


EB 




BEQ 


STLOAD 




19A2 20 


A6 19 




JSR 


RSTORE 


RESTORE INIT ADDRESSES 


19A5 60 






RTS 






19A6 A9 


00 


RSTORE 


LDAIM 


$00 


ZERO A, X, Y 


19A8 AA 






TAX 






19A9 A8 






TAY 






19AA 85 


20 




STAZ 


SCRL 


INIT VALUES 


19AC 85 


26 




STAZ 


TEMPL 




19AE 85 


39 




STAZ 


RCSL 




19B0 A5 


25 




LDAZ 


SCRHO 




19B2 85 


21 




STAZ 


SCRH 




19B1 A5 


29 




LDAZ 


TEMPHO 




19B6 85 


27 




STAZ 


TEMPH 




19B8 A5 


36 




LDAZ 


RCSHO 




19BA 8'; 


3A 




STAZ 


RCSH 




19BC 60 






RTS 






19BD E6 


26 


NXTADR 


INCZ 


TEMPL 


GET NEXT LOW ORDER 


19BF £6 


20 




INCZ 


SCRL 


BYTE ADDRESS 


19C1 E6 


39 




INCZ 


RCSL 




19C3 E8 






INX 






19CM E4 


33 




CPXZ 


SCRLL 


IS IT THE LAST? 


19C6 FO 


OC 




BEQ 


PAGECH 


IS IT THE LAST PAGE? 


19C8 EO 


00 




CPXIM 


$00 


IS IT A PAGE BOUNDARY? 


19CA DO 


OE 




BNE 


NALOAD 


IF NOT, THEN NOT DONE 


19CC E6 


27 




INCZ 


TEMPH 


OTHERWISE ADVANCE TO 


19CE E6 


21 




INCZ 


SCRH 


NEXT PAGE 


19D0 E6 


3A 




INCZ 


RCSH 




19D2 DO 


06 




BNE 


NALOAD 


UNCONDITIONAL BRANCH 


19D4 A5 


34 


PAGECH 


LDAZ 


SCRLH 


CHECK FOR LAST PAGE 


19D6 C5 


21 




CMPZ 


SCRH 




19D8 FO 


03 




BEQ 


NADONE 


IF YES, THEN DONE 


19DA A9 


00 


NALOAD 


LDAIM 


$00 


RETURN WITH A=0 


19DC 60 






RTS 






19DD A9 


01 


NADONE 


LDAIM 


$01 


RETURN WITH A=1 


19DF 60 






RTS 






19E6 






ORG 


$19E6 





19E6 20 A6 19 
19E9 B1 26 
19EB DO 06 



TMPRCS JSR RSTORE INIT ADDRESSES 
TRLOAD LDAIY TEMPL FETCH DATA FROM TEMP 

BNE TRONE IF NOT ZERO THtN ITS ALIVE 



-2.8 - 



19ED A9 


20 




LDAIM 


BLANK 


BLANK SYMBOL 


19EF 91 


39 




STAIY 


RCSL 


STORE IT IN SCREEN COPY 


19F1 DO 


04 




BNE 


NEWADR 


THEN ON TO A NEW ADDRESS 


19F3 A9 


51 


THONE 


LDAIM 


DOT 


THE DOT SYMBOL 


19F5 91 


39 




STAII 


RCSL 


STORE IT IN SCREEN COPY 


19F7 20 


BD 19 


NEW ADR 


JSR 


NXTADR 


FETCH NEXT ADDRESS 


19FA FO 


ED 




BEQ 


TRLOAD 


IF A=0, THEN NOT DONE 


19FC 20 


A6 19 




JSR 


RSTORE 


ELSE DONE. RESTORE 


19FF 60 






ITS 






1A00 20 


A6 19 


GENER 


JSR 


RSTORE 


INIT ADDRESSES 


1A03 20 


2F 1A 


AGAIN 


JSR 


NBRS 


FETCH NUMBER OF NEIGHBORS 


1A06 Bl 


39 




LDAII 


RCSL 


FETCH CURRENT DATA 


1A08 C9 


51 




OiPIM 


DOT 


IS IT A DOT? 


1A0A FO 


OC 




BEQ 


OCC 


IP YES, THEN BRANCH 


1A0C A5 


32 




LDAZ 


N 


OTHERWISE ITS BLANK 


1A0E C9 


03 




CMPIM $03 


SO WE CHECK FOR 


1A10 DO 


14 




BNE 


GENADR 


A BIRTH 


tA12 .A9 


01 


BIRTH 


LDAIM $01 


IT GIVES BIRTH 


1A1M 91 


26 




STAIY 


TEMPL 


STORE IT IN TEMP 


1A16 DO 


OE 




BNE 


GENADR 


INCONDITIONAL BRANCH 


1A18 A5 


32 


OCC 


LDAZ 


N 


FETCH NUMBER OF NEIGHBORS 


1A1A C9 03 




CMPIM 


$03 


IF IT HAS 3 OR 2 


1A1C FO 


08 




BEQ 


GENADR 


NEIGHBORS IT SURVIVES 


1A1E C9 


02 




CMPIM $02 




1A20 FO 


04 




BEQ 


GENADR 




1A22 A9 


00 


DEAtH 


LDAIM $00 


IT DIEDI 


1A24 91 


26 




STAII 


TEMPL 


STORE IT IN TEMP 


1A26 20 


BD 19 


GEN A OR 


JSR 


NXTADR 


FETCH NEXT ADDRESS 


1A29 FO 


D8 




BEQ 


AGAIII 


IF 0, THEN NOT DONE 


1A2B 20 


A6 19 




JSR 


RSTORE 


RESTORE INIT ADDRESSES 


1A2E 60 






RTS 






1A2F 98 




NBRS 


TYA 




SAVE Y AND X ON STACK 


1A30 48 






PHA 






U31 8A 






TXA 






1A32 148 






PHA 






1A33 AO 


00 




LDYIM $00 


SET Y AND N = 


1A35 81 


32 




STYZ 


N 




1A37 A2 08 




LDXIM $08 


CHECK 8 NEIGHBORS 


1A39 B5 


29 


OFFS 


LDAZX 


OFFSET 


-01 


1A3B 10 


15 




BPL 


ADD 


ADD IF OFFSET IS POSITIVE 


1A3D 49 


FF 




EORIM 


$FF 


OTHERWISE GET SET TO 


1A3F 85 


37 




STAZ 


TMP 


SUBTRACT 


1A41 38 






SEC 




SET CARRY BIT FOR SUBTRACT 


1A42 A5 


39 




LDAZ 


RCSL 




1A44 E5 


37 




SBCZ 


TMP 


SUBTRACT TO GET THE 


1A46 85 


22 




STAZ 


CHL 


CORRECT NEIGHBOR ADDRESS 


1A48 A5 


3A 




LDAZ 


RCSH 




1A4A 85 23 




STAZ 


CHH 




1A4C BO 


11 




BCS 


EXAM 


OK, FIND OUT WHAT'S THERE 


1A4E C6 


23 




DECZ 


CHH 


PAGE CROSS 


1A50 00 


00 




BNE 


EXAM 


UNCOND. BRANCH 


1A52 18 




ADD 


CLC 




GET SET TO ADD 


1A53' 65 


39 




ADCZ 


RCSL 


ADD 


1A55 85 


22 




STAZ 


CHL 


STORE THE LOW PART 



-;i^ 



1A57 A5 


3A 




LDAZ 


RCSH 


FETld THE HIGH PART 


1A59 85 


23 




STAZ 


CHH 




1A5B 90 


02 




BCC 


EXAM 


OK, WHAT'S THERE 


1A5D E6 


23 




INCZ 


CHH 


PAGE CROSSING 


1A5F B1 


22 


EXAM 


LDAIY 


CHL 


FETCH THE NEIGHBOR 


1A61 C9 


51 




CMPIM 


DOT 


DATA BYTE AND SEE IF ITS 


1A63 DO 


02 




BNE 


NEXT 


OCCUPIED 


1A65 E6 


32 




INCZ 


N 


ACCUMULATE NUMBER OF NEIGHBORS 


1A67 CA 




NEXT 


DEX 






1A68 DO 


CF 




BNE 


OFFS 


NOT DONE 


1A6A 68 






PLA 




RESTORE X, Y FROM STACK 


1A6B AA 






TAX 






1A6C 68 






PLA 






1A6D A8 






TAY 






1A6E 60 






RTS 







This program was prepared by ! 



Dr. F. H. Covitz, 
Deer Hill Road, 
Lebanon, 
N.J. 08833, 
USA. 



LIFE FOR yOUR PET (cont.) 

Below we have a way of actually getting our HEX OP-CODES 
into the PET. Lines 100-200 read the data statements 
convert them to decimal and POKE them sequentially into the 
memory. The first data item is expected to be the starting 
point of the loading in decimal and the last data item is 
expected to be an asterix. The beauty of this method is that 
you can use the screen edit facility on the PET for inserting 
and deleting codes. When you have inserted your own data 
statements from line 300 upwards, save the entire performance 
prior to running as machine language routines rarely work 
first time around and the PET is quite likely to hang up and need 
turning off and on. The data statements in the example are for the 
game of LIFE. In the original version listed on the previous 
pages, 256 generations must occur before the control returns 
to BASIC. I have modified the program slightly in the begin- 
ning in order to allow the stop button to halt the binary 
routine. If you think you have loaded the following program 
correctly type RUN and press RETURN. This loads the binary 
program. When the machine prints READY, clear the screen. Type 
say eight shifted Qs in a row in the middle of the screen 
followed by SYS (64j&|6) (which is 19^^H in decimal) and press 
return. GOOD LUCK! 



1«0 READL 

110 READ A*:C = LEN(A»):IFA$=''t-"THENLN[i 

120 IPC .:iORC>2THEN200 

130 A^ASC(A»)-48:B=ftSr(RIGHTiiA*,l > '~48 

140 N^B + 7*(fi>9)-(C = 2)*(16*(A + 7*i A 9) ) ) 

150 IEN<0ORN>255THEH200 

160 POKEL,N:L=L+1:6OTO110 

200 PRINT"E(YTE"L" = C"A>t"] t"":END 

300 DATA6400 

310 DATA 08,48,8A,48,98,48.BA.8A,48,D3,20,3!3,1?,2!3,8A,19,20.E6,19.20.00,1A 

320 DATA20,70,19,A9,FF,C[i,12,E8,F0,F0,4C,eB,C3,AA,68.28,4C,8B.C3 

330 DATA EA,EA,EA,£A,EA,EA,EA,A2,19,BD,3A,19,?5,1F,CA,D0,F8,60,00,80.00. 15,00 

340 HAT AB0, 00, IB, 00, IB, [17,28,01 . FE . D8, Hi ,29 ,27,00. E8. 83,00, 1 5,00 .00 

350 DATAEA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA.EA,EA,EA.EA,i:ri,lLA.i:A.EA,l-:A,EA 

360 DATAEA , EA . EA , E A , E A , 20 , A6 , 1 V , F 1 , 2o , D0 , 06 . A? , 20 . 9 1 , 2<3 . 00 . 04 , A? , 5 ! , 91 , 20 , 20 

370 DATA BD , 1 9 , F0 . ED , 20 , A6 , 1 9 , 60 , 20 . A6 , 1 9 , B 1 , 20 , C9 , 5 1 , F0 , 06 , A9 , 00 ,91, 2.s . F0 

380 DATA04,A9,01,91,26,20,BD,19.F0,EB.20,A6.)9,60.A9,00,HA,A8,8'5,20,35,26.35 

390 DATA39,A5,25,85,21,A5,29,85,27,A5,36,85,3A,60,E6,26,E6,20,E6,39,E8,E4 

} DATA33,F0,0C.E0,00,D0,0E,E6,27,E6,21 ,E6,3A,D0.06.A5,34.C5,21 ,F0,03.A9,00 
M DAT A 60 , A9 , 1 , 60 , E A , EA . E A, E A , E A , EA , 20 . A6 , 1 9 , B 1 , 26 , D0 , 0.i , A9 , 20 , 9 1 . :59 . Ii0 
120 DATA04,A9,51,9l,39,20,BD,19,Fi,ED,20,A6,19.60,20,A6,ty,20,2l-,1A,S1.39,C9 
130 DATA51,F0,0C.A5.32,C9,03,D0,14,A9,01,91,26,D0,0E,A5,32,C9,03,F0,03.C9,02 
140 DATAF0,04,A9,00,?l,26,20,BD,15,F0,ri8,20,A6,19,60,?8,48.8A,48,H0,00.84,32 
)50 DATAA2,08,B5,29,10,15.49,FF,85,37,38,A5,39,E5.37,85,22,A5,3A,85,23,B0,lt 
»60 riATAC6,23,D0,0D,18,65,39,85,22,A5,3A,85,23,90,02.E6,23,B1,22.C9,51.[i0,02 
170 DATAE6,32,CA,D0,CF,68,AA,68,Ae,60,* 
READY. 



Mr. J. Smith of 38 Claremont Crescent, Croxley Green, Rickmansworth, 

Herts. WD3 3QR 

wrote in: Tlie error in the definition of arc cos X should, I 

feel, be corrected. A possible version is:-© 

ACS X = ATN(SQR {1-Xt2)/X) + (1-SGN {X) ) * Tl /2 

this correctly gives ( unless X=^ ) arc cos (-^.5) as 
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YOUR LETTERS (cont.) 



2TV/3 (120°) I your formula gives 



arc cos (H^.5) as -60 this would be incorrect 
in e.g. a "cosine rule" problem, 

As you expect PET to be used in educational establish- 
ments for solving trig, problems, I think it important 
to put this right. 
Q^ote that if X is negative 
l-SGN(X) = 2 

& if X is positive 
l-SGN(X) =0 
this ensures that a correct multiple of T\ is added to the 
arctangent. Also, would it not be better to suggest,. 
P = 18^/Tt ( before FNS is used) 
DEFFNS(V) = SIN (V/P) etc. 
for the user defined functions? 



HERE ARE SOME COMMENTS FROM MR. M.J. SMYTH who is th« 
Senior Lecturer, Department of Astronomy, Royal Observatory, 
Edinburgh EH9 3HJ. 



Using .BASIC and the IEEE 488 bus, PET can input 40 
numbers per second from a 3h digit voltmeter (Hewlett 
Packard 3437A) , Also using BASIC, the user port can 
generate an output trigger (e.g. to a measuring device) 
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YOUR LETTERS (cont.) 



within about 10 ms of an input trigger. We have not 
yet tried using assembler. But the BASIC speeds make 
possible very interesting applications in equipment 
control and real-time data processing. 



